home *** CD-ROM | disk | FTP | other *** search
/ Summit / Summit Recordable CD-ROM.ISO / screen / number.spr < prev    next >
Encoding:
Text File  |  1994-08-12  |  6.0 KB  |  183 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 08/12/94             NUMBER.SPR                12:50:16 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Duncan Halstead                                         
  8. *       *                                                         
  9. *       * Copyright (c) 1994 CD-ROM, Inc                          
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       *********************************************************
  35. *       *                                                         
  36. *       *               Windows Window definitions                
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_qsi0rikvg")
  42.     DEFINE WINDOW _qsi0rikvg ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 4.923,34.200 ;
  45.         TITLE "Page Number" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         FLOAT ;
  48.         CLOSE ;
  49.         MINIMIZE ;
  50.         SYSTEM
  51.     MOVE WINDOW _qsi0rikvg CENTER
  52. ENDIF
  53.  
  54.  
  55. *       *********************************************************
  56. *       *                                                         
  57. *       *          NUMBER/Windows Setup Code - SECTION 2          
  58. *       *                                                         
  59. *       *********************************************************
  60. *
  61.  
  62. #REGION 1
  63. test2 = 'a'
  64. test2 = PAGE[1,1]
  65.  
  66. *       *********************************************************
  67. *       *                                                         
  68. *       *              NUMBER/Windows Screen Layout               
  69. *       *                                                         
  70. *       *********************************************************
  71. *
  72.  
  73. #REGION 1
  74. IF WVISIBLE("_qsi0rikvg")
  75.     ACTIVATE WINDOW _qsi0rikvg SAME
  76. ELSE
  77.     ACTIVATE WINDOW _qsi0rikvg NOSHOW
  78. ENDIF
  79. @ 0.077,0.200 GET test2 ;
  80.      PICTURE "@&N" ;
  81.     FROM Page ;
  82.     SIZE 4.615,33.400 ;
  83.     DEFAULT 1 ;
  84.     FONT "MS Sans Serif", 8 ;
  85.     VALID _qsi0rilnc()
  86.  
  87. IF NOT WVISIBLE("_qsi0rikvg")
  88.     ACTIVATE WINDOW _qsi0rikvg
  89. ENDIF
  90.  
  91. READ CYCLE ;
  92.     ACTIVATE _qsi0rilw2() ;
  93.     DEACTIVATE .T.
  94.  
  95. RELEASE WINDOW _qsi0rikvg
  96.  
  97. #REGION 0
  98.  
  99. SET READBORDER &rborder
  100.  
  101. IF m.talkstat = "ON"
  102.     SET TALK ON
  103. ENDIF
  104. IF m.compstat = "ON"
  105.     SET COMPATIBLE ON
  106. ENDIF
  107.  
  108.  
  109. *       *********************************************************
  110. *       *                                                         
  111. *       *               NUMBER/Windows Cleanup Code               
  112. *       *                                                         
  113. *       *********************************************************
  114. *
  115.  
  116. #REGION 1
  117. *PROCEDURE nxtpg
  118. *    Element = ASCAN(page, test2)
  119. *    Total = ALEN(Page)
  120. *    If Element = Total
  121. *        Element = 0
  122. *    ENDIF
  123. *    test2 = Page[Element + 1]
  124. *    CLEAR READ
  125. *    RELEASE WINDOW
  126. *    DO (test2 + '.spr')
  127. *RETURN
  128. *
  129. *PROCEDURE bckpg
  130. *    Element = ASCAN(page, test2)
  131. *    Total = ALEN(Page)
  132. *    If Element = 1
  133. *        Element = Total + 1
  134. *    ENDIF
  135. *    test2 = Page[Element - 1]
  136. *    CLEAR READ
  137. *    RELEASE WINDOW
  138. *    DO (test2 + '.spr')
  139. *RETURN
  140.  
  141. *ON KEY LABEL PGUP
  142. *ON KEY LABEL PGDN
  143.  
  144. *       *********************************************************
  145. *       *                                                         
  146. *       * _QSI0RILNC           test2 VALID                        
  147. *       *                                                         
  148. *       * Function Origin:                                        
  149. *       *                                                         
  150. *       * From Platform:       Windows                            
  151. *       * From Screen:         NUMBER,     Record Number:    2    
  152. *       * Variable:            test2                              
  153. *       * Called By:           VALID Clause                       
  154. *       * Object Type:         List                               
  155. *       * Snippet Number:      1                                  
  156. *       *                                                         
  157. *       *********************************************************
  158. *
  159. FUNCTION _qsi0rilnc     &&  test2 VALID
  160. #REGION 1
  161. do screen.exe with (test2 + '.spr')
  162.  
  163. *       *********************************************************
  164. *       *                                                         
  165. *       * _QSI0RILW2           Read Level Activate                
  166. *       *                                                         
  167. *       * Function Origin:                                        
  168. *       *                                                         
  169. *       *                                                         
  170. *       * From Platform:       Windows                            
  171. *       * From Screen:         NUMBER                             
  172. *       * Called By:           READ Statement                     
  173. *       * Snippet Number:      2                                  
  174. *       *                                                         
  175. *       *********************************************************
  176. *
  177. FUNCTION _qsi0rilw2     && Read Level Activate
  178. *
  179. * Activate Code from screen: NUMBER
  180. *
  181. #REGION 1
  182. test2=Page[1,1]
  183.